Software of the Month Club 1996 April/Software of the Month Club 1996 April.iso/pc/os2/psutils/src/psresize.c

C/C++ Source or Header | 1996-02-21 | 5.1 KB | 181 lines

/* psresize.c
 * Copyright (C) Angus J. C. Duggan 1991-1995
 * See file LICENSE for details.
 *
 * alter pagesize of document
 *
 * Usage:
 *      psresize [-q] [-w<dim>] [-h<dim>] [-ppaper] [-W<dim>] [-H<dim>]
 *            [-Ppaper] [in [out]]
 *              -w<dim> sets the output paper width
 *              -h<dim> sets the output paper height
 *              -ppaper sets the output paper size (width and height) by name
 *              -W<dim> sets the input paper width
 *              -H<dim> sets the input paper height
 *              -Ppaper sets the input paper size (width and height) by name
 */

#include "psutil.h"
#include "psspec.h"
#include "pserror.h"
#include "patchlev.h"

char *program ;
int pages ;
int verbose ;
FILE *infile ;
FILE *outfile ;
char pagelabel[BUFSIZ] ;
int pageno ;

static void usage(void)
{
   fprintf(stderr, "%s release %d patchlevel %d\n", program, RELEASE, PATCHLEVEL);
   fprintf(stderr, "Copyright (C) Angus J. C. Duggan, 1991-1995. See file LICENSE for details.\n");
   fprintf(stderr, "Usage: %s [-q] [-wwidth] [-hheight] [-ppaper] [-Wwidth] [-Hheight] [-Ppaper] [infile [outfile]]\n",
       program);
   fflush(stderr);
   exit(1);
}

static void argerror(void)
{
   message(FATAL, "bad dimension\n");
}

#define MIN(x,y) ((x) > (y) ? (y) : (x))
#define MAX(x,y) ((x) > (y) ? (x) : (y))

void main(int argc, char *argv[])
{
   double scale, rscale;            /* page scale */
   double waste, rwaste;            /* amount wasted */
   double vshift, hshift;            /* page centring shifts */
   int rotate;
   double inwidth = -1;
   double inheight = -1;
   Paper *paper;
   PageSpec *specs;

#ifdef PAPER
   if ( (paper = findpaper(PAPER)) != (Paper *)0 ) {
      inwidth = width = (double)PaperWidth(paper);
      inheight = height = (double)PaperHeight(paper);
   }
#endif

   vshift = hshift = 0;
   rotate = 0;

   infile = stdin;
   outfile = stdout;
   verbose = 1;
   for (program = *argv++; --argc; argv++) {
      if (argv[0][0] == '-') {
     switch (argv[0][1]) {
     case 'q':    /* quiet */
        verbose = 0;
        break;
     case 'w':    /* page width */
        width = singledimen(*argv+2, argerror, usage);
        break;
     case 'h':    /* page height */
        height = singledimen(*argv+2, argerror, usage);
        break;
     case 'p':    /* paper type */
        if ( (paper = findpaper(*argv+2)) != (Paper *)0 ) {
           width = (double)PaperWidth(paper);
           height = (double)PaperHeight(paper);
        } else
           message(FATAL, "paper size '%s' not recognised\n", *argv+2);
        break;
     case 'W':    /* input page width */
        inwidth = singledimen(*argv+2, argerror, usage);
        break;
     case 'H':    /* input page height */
        inheight = singledimen(*argv+2, argerror, usage);
        break;
     case 'P':    /* input paper type */
        if ( (paper = findpaper(*argv+2)) != (Paper *)0 ) {
           inwidth = (double)PaperWidth(paper);
           inheight = (double)PaperHeight(paper);
        } else
           message(FATAL, "paper size '%s' not recognised\n", *argv+2);
        break;
     case 'v':    /* version */
     default:
        usage();
     }
      } else if (infile == stdin) {
     if ((infile = fopen(*argv, OPEN_READ)) == NULL)
        message(FATAL, "can't open input file %s\n", *argv);
      } else if (outfile == stdout) {
     if ((outfile = fopen(*argv, OPEN_WRITE)) == NULL)
        message(FATAL, "can't open output file %s\n", *argv);
      } else usage();
   }
#if defined(MSDOS) || defined(WINNT)
   if ( infile == stdin ) {
      int fd = fileno(stdin) ;
      if ( setmode(fd, O_BINARY) < 0 )
         message(FATAL, "can't open input file %s\n", argv[4]);
    }
   if ( outfile == stdout ) {
      int fd = fileno(stdout) ;
      if ( setmode(fd, O_BINARY) < 0 )
         message(FATAL, "can't reset stdout to binary mode\n");
    }
#endif
   if ((infile=seekable(infile))==NULL)
      message(FATAL, "can't seek input\n");

   if (width <= 0 || height <= 0)
      message(FATAL, "output page width and height must be set\n");

   if (inwidth <= 0 || inheight <= 0)
      message(FATAL, "input page width and height must be set\n");

   /* try normal orientation first */
   scale = MIN(width/inwidth, height/inheight);
   waste = (width-scale*inwidth)*(width-scale*inwidth) +
      (height-scale*inheight)*(height-scale*inheight);
   hshift = (width - inwidth*scale)/2;
   vshift = (height - inheight*scale)/2;

   /* try rotated orientation */
   rscale = MIN(height/inwidth, width/inheight);
   rwaste = (height-scale*inwidth)*(height-scale*inwidth) +
      (width-scale*inheight)*(width-scale*inheight);
   if (rwaste < waste) {
      double tmp = width;
      scale = rscale;
      hshift = (width + inheight*scale)/2;
      vshift = (height - inwidth*scale)/2;
      rotate = 1;
      width = height;
      height = tmp;
   }

   width /= scale;
   height /= scale;

   /* now construct specification list and run page rearrangement procedure */
   specs = newspec();

   if (rotate) {
      specs->rotate = 90;
      specs->flags |= ROTATE;
   }
   specs->pageno = 0;
   specs->scale = scale;
   specs->flags |= SCALE;
   specs->xoff = hshift;
   specs->yoff = vshift;
   specs->flags |= OFFSET;

   pstops(1, 1, 0, specs, 0.0);        /* do page rearrangement */

   exit(0);
}